﻿Public Class ClassZip7z
    Sub New(ByVal CheminFolder As String, ByVal CheminZip As String)
        Dim basePath = My.Application.Info.DirectoryPath
        Dim startInfo As New ProcessStartInfo
        startInfo.FileName = """" & basePath & "\7za.exe"""
        startInfo.Arguments = "a -tzip -mx0 " & CheminZip & " " & CheminFolder & "*"
        startInfo.WindowStyle = ProcessWindowStyle.Hidden
        Process.Start(startInfo)
    End Sub
End Class
